home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Online / AmigaTalk / general / ByteArray.st < prev    next >
Text File  |  2000-05-15  |  449b  |  25 lines
  1. Class ByteArray :ArrayedCollection
  2. [
  3.    at: index
  4.       ^ <primitive 118 self index>
  5. |
  6.    at: index put: value
  7.       <primitive 119 self index value>
  8. |
  9.    printString   ! str !
  10.       str <- '#[ '.
  11.       (1 to: self size)
  12.          do: [:i | str <- str , (self at: i) printString , ' '].
  13.  
  14.       ^ str , ']'
  15. |
  16.    displayBytes: title
  17.     <primitive 229 22 self title>
  18. |
  19.    size
  20.       ^ <primitive 117 self>
  21. |
  22.    new: size
  23.       ^ <primitive 116 size>
  24. ]
  25.